home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / docs / help / ascii_table.lha / ascii_table / ascII.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1998-03-10  |  839 b   |  42 lines
  1. /* saves ascii-table to ram:ascii.txt */
  2.  
  3.  
  4. open('outfile','ram:ascii.txt','W')
  5. title='ASCII-Table for AMIGA'
  6. info='Codes marked "<?>" are not known. ( by me.)'
  7. writeln('outfile',title)
  8. writeln('outfile',info)
  9. writeln('outfile','')
  10. say title
  11. say info
  12.  
  13. DO i=0 TO 63
  14.     ai=i
  15.     bi=i+64
  16.     ci=i+128
  17.     di=i+192
  18.     a=' '||D2C(ai)||' '
  19.     b=' '||D2C(bi)||' '
  20.     c=' '||D2C(ci)||' '
  21.     d=' '||D2C(di)||' '
  22.  
  23.     IF ai<32 then a='<?>'
  24.     IF ai<11 then a=' <?>'
  25.     IF ci>127 & ci<160 THEN c='<?>'
  26.     IF bi<100 then b=' '||b
  27.  
  28. /* Add new codes below */
  29.     IF ai=0 THEN a=' NUL'
  30.     IF ai=7 THEN a=' BEL'
  31.     IF ai=8 THEN a=' C<-'
  32.      IF ai=9 THEN a=' TAB'
  33.     IF ai=10 THEN a='NL '
  34.     IF ai=13 THEN a='RET'
  35.     IF ci=155 THEN c='BTb'
  36.  
  37.     line= ai||'-'||a||'    'bi||'-'||b||'    'ci||'-'||c||'    'di||'-'||d
  38.     say line
  39.     writeln('outfile',line)
  40. END
  41. say 'Saved as ram:ascii.txt'
  42. close('outfile')